home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / comp0_89.lha / Feel / Boot / Compiler / foo.em < prev    next >
Encoding:
Text File  |  1993-02-02  |  413 b   |  29 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: foo.em
  4. ;; Date: Thu Apr 30 13:52:20 1992
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule foo
  11.   (standard0
  12.    list-fns
  13.  
  14.    stream
  15.    peephole
  16.    )
  17.   ()
  18.   
  19.   (defun make-filter-stream ()
  20.     (let ((state (make-initial-peep-state)))
  21.       (make-filter-stream
  22.        (peep-opt (lambda () state))
  23.        (close-state (lambda () state))
  24.        (make-simple-stream))))
  25.   
  26.   
  27.  
  28.   )
  29.